home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / HyperCard Related / Rinaldi Collection / GetDir 2.6 (US) / GetDir 2.6 (US) / background_2661.txt < prev    next >
Encoding:
Text File  |  1995-02-21  |  737 b   |  35 lines
  1. -- background: 2661 from stack: in.6 (US)
  2. -- bmap block id: 2103
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=189 top=278 right=312 bottom=342
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: GetDir
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get selectDir("Folder to search :")
  23.   if it is empty
  24.   then exit mouseUp
  25.   put it into Path
  26.  
  27.   ask "Output Mask : (b,c,d,e,f,m,n,p,r,s,t,x,y,z,v)" with "n"
  28.   if it is empty
  29.   then exit mouseUp
  30.  
  31.   set cursor to watch
  32.   put GetDir(Path,"a","o=" & it) into cd fld 2
  33.   show cd fld 2
  34. end mouseUp
  35.